Endowment Percent Change

Rose Evard

2023-04-04

# make kable table with consistent formatting
make_table <- function(..., title = "", col_names = c("")) {
  title <- paste0("<center><span style = 'font-size:150%;color:black'><b>",
                  title,
                  "</span></b><center>")
   as_tibble(...) %>%
    kbl(caption = title,
        col.names = col_names) %>%
    kable_material() %>%
    row_spec(row=0, background = "#43494C" , color = "white", bold = TRUE)
}
## Loading in data
endowment_data <- read_rds(here("data", "endowments_by_most_recent_filings.RDS"))
names <- read_csv(here("data", "companies.csv")) %>% 
  mutate(EIN = as.character(ein)) %>%
  select(-ein)
## Rows: 308 Columns: 3
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## chr (1): organization_name
## dbl (2): EIN, ein
## 
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

Calculating Percent Change

Including Investments

(End Year Balance - Beginning Year Balance) / Beginning Year Balance * 100

If EYB is larger, positive result. Meaning there was a INCREASE in total funds.
If BYB is larger, negative result. Meaning a DECREASE in total funds.
If result is above 100, the fund was at least DOUBLED.

#### USE THIS
## (EYB - BYB)/BYB * 100
## Rose has notes on her choice for this calculation
pct_change_ds <- endowment_data %>%
  filter(!is.na(BeginningYearBalanceAmt)) %>%
  mutate(change = EndYearBalanceAmt - BeginningYearBalanceAmt,
         pct_change = change/BeginningYearBalanceAmt * 100) %>%
  arrange(desc(pct_change)) %>%
  left_join(names, by = "EIN")

# Basic summary stats
pct_change_ds %>%   
  filter(!is.na(pct_change) & pct_change != Inf) %>%
  summarize(avg_pct_change = mean(pct_change),
            median_pct_change = median(pct_change),
            sd_pct_change = sd(pct_change))
pct_change_ds %>%   
  filter(!is.na(pct_change) & pct_change != Inf) %>%
  group_by(EIN) %>%
  summarize(avg_pct_change = mean(pct_change),
            median_pct_change = median(pct_change),
            sd_pct_change = sd(pct_change))
# Basic histogram summarizing it
ggplot(pct_change_ds, aes(x = pct_change)) +
  geom_histogram(binwidth = 20) + 
  xlab("% Change\n(EYB - BYB) / BYB * 100") + 
  ggtitle(label = "Percentage of Change in Endowment Balance", subtitle = "Red Line indicates 100%") +
  theme_classic() + 
  geom_vline(xintercept = 100, color = "maroon", linetype = "dotted")

pct_change_ds %>%
  filter(pct_change != Inf) %>%
  select(organization_name, fiscal_year, pct_change) %>%
  make_table(title = "Percentage of Change in Endowment Balance", col_names = c("Name", "Fiscal Year", "% Spend Down")) %>%
  scroll_box(height = "450px")
Percentage of Change in Endowment Balance
Name Fiscal Year % Spend Down
Joffrey Ballet 2015 3091.4016854
Fort Wayne Ballet 2014 1897.2429619
First State Ballet Theatre 2012 1448.0762683
Ballet Arizona 2016 586.1374894
Orlando Ballet 2017 552.8554949
Ballet Arizona 2015 493.1015099
Ballet Hispanico 2021 432.1555786
Nashville Ballet 2011 288.7391599
First State Ballet Theatre 2020 242.6848638
Milwaukee Ballet 2011 212.5546600
Atlanta Ballet 2017 207.7002614
Orlando Ballet 2018 206.9063832
Nashville Ballet 2016 206.2101382
Grand Rapids Ballet 2015 186.0427033
Richmond Ballet 2016 178.0161483
Charlotte Ballet 2013 171.7520288
Joffrey Ballet 2019 146.9046722
Texas Ballet Theater 2015 133.5240000
The Charleston Ballet 2013 132.1823138
Dayton Ballet 2018 118.1185754
Ballet Austin 2013 111.9610260
Miami City Ballet 2021 103.3796951
Ballet Memphis 2018 100.3575811
Ballet Memphis 2012 94.1089954
Joffrey Ballet 2020 90.8216917
Ballet Austin 2017 90.2783217
Texas Ballet Theater 2018 85.8401625
BalletMet 2018 85.0249761
Atlanta Ballet 2016 81.8387443
The Tallahassee Ballet 2011 74.5093458
First State Ballet Theatre 2019 69.9900000
Richmond Ballet 2018 57.4030070
Ballet Hispanico 2014 54.7692390
First State Ballet Theatre 2016 53.2556470
American Repertory Ballet 2014 51.6506759
Atlanta Ballet 2012 47.7865882
Dayton Ballet 2019 47.3628143
Ballet Des Moines 2018 40.4800000
Richmond Ballet 2020 39.8449675
The Sarasota Ballet 2016 36.6266667
NA 2014 36.2295633
Eugene Ballet 2021 35.3676599
The Tallahassee Ballet 2014 35.2860183
Richmond Ballet 2019 34.8263002
American Repertory Ballet 2013 34.4003625
First State Ballet Theatre 2017 32.2270270
Nashville Ballet 2013 31.9611808
Ballet Memphis 2014 29.0814635
New Mexico Ballet Company 2019 28.7289611
Aspen Santa Fe Ballet 2017 27.9853981
Richmond Ballet 2017 27.4751409
Miami City Ballet 2018 26.9869980
Ballet Memphis 2017 26.3332143
BalletMet 2014 25.3577272
Kansas City Ballet 2011 23.4046965
BalletMet 2019 22.9766213
Ballet Memphis 2011 21.9748193
Joffrey Ballet 2016 20.8230683
Kansas City Ballet 2012 20.7916223
The Charleston Ballet 2011 20.3422772
Pittsburgh Ballet Theatre 2021 20.2563462
Joffrey Ballet 2018 20.1054139
Charlotte Ballet 2014 19.2067643
The Washington Ballet 2011 19.0694795
San Francisco Ballet 2017 18.7877861
Nashville Ballet 2017 18.7510970
Pittsburgh Ballet Theatre 2014 18.4707163
Pacific Northwest Ballet 2011 17.1031688
Alvin Ailey American Dance Theater 2011 16.9142437
San Francisco Ballet 2013 16.9015314
The Washington Ballet 2014 16.5357705
Grand Rapids Ballet 2020 16.5116257
Dayton Ballet 2017 16.4112620
Houston Ballet 2011 16.4010185
New York City Ballet 2018 16.3644199
Joffrey Ballet 2017 15.8506700
Houston Ballet 2017 15.6387481
Houston Ballet 2014 15.6082029
Oregon Ballet Theatre 2013 15.5103905
Tulsa Ballet 2018 15.3823425
NA 2018 15.2551406
Aspen Santa Fe Ballet 2016 15.1095158
Alvin Ailey American Dance Theater 2014 15.0948805
Ballet Arizona 2017 15.0358519
Pacific Northwest Ballet 2017 15.0137712
American Ballet Theatre 2017 14.9425672
The Charleston Ballet 2014 14.9236822
Kansas City Ballet 2015 14.6091861
Tulsa Ballet 2015 14.4923885
San Francisco Ballet 2014 14.4355515
Kansas City Ballet 2019 14.2884428
Charlotte Ballet 2011 14.2224810
Tulsa Ballet 2019 14.0998602
Kansas City Ballet 2013 13.9762729
Orlando Ballet 2019 13.8649901
Kansas City Ballet 2014 13.8566871
Atlanta Ballet 2018 13.6920172
Pittsburgh Ballet Theatre 2018 13.4902430
Houston Ballet 2013 13.3539124
Pittsburgh Ballet Theatre 2011 13.3538665
Tulsa Ballet 2011 13.2967451
Alvin Ailey American Dance Theater 2013 13.2026403
New York City Ballet 2017 13.0492346
Tulsa Ballet 2017 12.8725445
American Ballet Theatre 2019 12.8340039
The Tallahassee Ballet 2015 12.7775722
The Washington Ballet 2013 12.7552838
Milwaukee Ballet 2014 12.4200913
New York City Ballet 2014 12.3479692
Tulsa Ballet 2013 11.7754847
Madison Ballet 2014 11.6614781
Alvin Ailey American Dance Theater 2017 11.5365116
Alvin Ailey American Dance Theater 2012 11.3682085
Atlanta Ballet 2015 11.3598829
Grand Rapids Ballet 2019 11.2809947
Richmond Ballet 2014 10.9079435
The Charleston Ballet 2017 10.7069912
The Tallahassee Ballet 2013 10.4979253
NA 2011 10.3925842
Charlotte Ballet 2017 10.3333680
New York City Ballet 2011 10.0181422
Pacific Northwest Ballet 2013 9.8291806
NA 2017 9.7115934
American Ballet Theatre 2013 9.5641764
Fort Wayne Ballet 2016 9.5012117
Charlotte Ballet 2015 9.1252970
Ballet Austin 2020 8.9689362
American Ballet Theatre 2020 8.9365465
Nevada Ballet Theatre 2011 8.9183455
Ballet Austin 2014 8.7657433
Milwaukee Ballet 2017 8.6823347
Ballet West 2015 8.5436426
Charlotte Ballet 2016 8.5301897
Milwaukee Ballet 2013 8.4440836
Madison Ballet 2017 8.2709975
Ballet West 2020 8.0887426
New York City Ballet 2013 8.0655265
Charlotte Ballet 2018 8.0057600
American Ballet Theatre 2012 7.9849386
NA 2019 7.8186556
Pacific Northwest Ballet 2014 7.7515053
The Charleston Ballet 2018 7.7078009
Kansas City Ballet 2017 7.6710943
Miami City Ballet 2017 7.4251152
Ballet Hispanico 2011 7.4065897
Tulsa Ballet 2020 7.2630153
Pittsburgh Ballet Theatre 2017 7.1356111
Aspen Santa Fe Ballet 2012 7.0179265
NA 2020 6.8383787
Grand Rapids Ballet 2017 6.7800620
Madison Ballet 2011 6.7615068
Pennsylvania Ballet 2011 6.6593049
The Tallahassee Ballet 2017 6.6393657
NA 2016 6.4755945
The Sarasota Ballet 2017 6.4328584
New Mexico Ballet Company 2018 6.3933881
Madison Ballet 2013 6.3250010
Ballet Des Moines 2019 6.2713554
Miami City Ballet 2014 6.2446692
Oregon Ballet Theatre 2015 6.1461577
Pacific Northwest Ballet 2018 6.0970879
Oregon Ballet Theatre 2014 6.0199280
Fort Wayne Ballet 2015 5.9063870
Aspen Santa Fe Ballet 2011 5.8574809
Pittsburgh Ballet Theatre 2013 5.8355538
Grand Rapids Ballet 2018 5.6995093
The Sarasota Ballet 2020 5.3797096
Nashville Ballet 2014 5.3783928
Milwaukee Ballet 2018 5.3251625
Pacific Northwest Ballet 2020 5.2552006
Tulsa Ballet 2016 5.1996153
Madison Ballet 2018 5.1952964
Ballet Memphis 2013 5.1619171
San Francisco Ballet 2018 5.0127410
Grand Rapids Ballet 2014 4.9689028
Ballet Hispanico 2017 4.8257031
Tulsa Ballet 2014 4.7509696
Ballet Austin 2018 4.6407201
Miami City Ballet 2013 4.5466778
Aspen Santa Fe Ballet 2013 4.4768989
Oregon Ballet Theatre 2019 4.1823644
Ballet Hispanico 2013 4.1596925
American Ballet Theatre 2015 3.9081263
Richmond Ballet 2015 3.7696127
Pennsylvania Ballet 2014 3.5578845
Alvin Ailey American Dance Theater 2019 3.5551869
Houston Ballet 2018 3.5239698
The Tallahassee Ballet 2019 3.4501860
Oregon Ballet Theatre 2017 3.4233093
The Tallahassee Ballet 2018 3.2518997
Ballet Quad Cities 2017 3.2100411
Nashville Ballet 2018 3.1497842
NA 2013 3.0250379
Houston Ballet 2019 3.0126539
Richmond Ballet 2013 2.9551103
Ballet West 2016 2.9479559
Grand Rapids Ballet 2011 2.9305635
Pennsylvania Ballet 2017 2.7458153
Ballet Austin 2019 2.7039028
Alvin Ailey American Dance Theater 2018 2.6520142
Oregon Ballet Theatre 2016 2.6351387
Pacific Northwest Ballet 2019 2.5299841
Ballet West 2019 2.5020351
Ballet Austin 2012 2.3668865
Ballet Austin 2015 2.0739029
Ballet West 2014 2.0511082
Eugene Ballet 2020 2.0266667
Alvin Ailey American Dance Theater 2015 2.0168085
Oregon Ballet Theatre 2020 1.9913020
Grand Rapids Ballet 2013 1.7112000
Oregon Ballet Theatre 2021 1.5619387
The Alabama Ballet 2017 1.5438912
Ballet Hispanico 2019 1.5405288
Nevada Ballet Theatre 2013 1.3945270
Nashville Ballet 2015 1.3707995
Kansas City Ballet 2016 1.3182366
Miami City Ballet 2019 1.1650569
Alvin Ailey American Dance Theater 2020 1.1173579
NA 2012 1.1171575
San Francisco Ballet 2015 1.1010216
Madison Ballet 2020 1.0503166
Ballet Arizona 2014 0.9960259
Pennsylvania Ballet 2020 0.9848159
Nevada Ballet Theatre 2018 0.9818432
Fort Wayne Ballet 2017 0.9437819
Pennsylvania Ballet 2018 0.8212002
BalletMet 2011 0.8065975
Pittsburgh Ballet Theatre 2019 0.7669528
Colorado Ballet 2011 0.6399047
Nashville Ballet 2020 0.6340668
Pacific Northwest Ballet 2015 0.6277229
The Alabama Ballet 2020 0.5951924
Texas Ballet Theater 2019 0.5813097
Texas Ballet Theater 2020 0.5742863
Colorado Ballet 2015 0.5500000
Fort Wayne Ballet 2019 0.4949803
Ballet Hispanico 2018 0.4786320
American Ballet Theatre 2010 0.3281092
Milwaukee Ballet 2015 0.2558318
Ballet Quad Cities 2018 0.2475248
New Mexico Ballet Company 2020 0.2184921
Oregon Ballet Theatre 2018 0.1654999
Ballet Hispanico 2016 0.1309318
New York City Ballet 2019 0.0809932
Texas Ballet Theater 2017 0.0285424
BalletMet 2012 0.0266534
Texas Ballet Theater 2016 0.0199837
Dance Theatre of Harlem 2011 0.0000000
Dance Theatre of Harlem 2012 0.0000000
Dance Theatre of Harlem 2013 0.0000000
Dance Theatre of Harlem 2014 0.0000000
Dance Theatre of Harlem 2015 0.0000000
Dance Theatre of Harlem 2016 0.0000000
Dance Theatre of Harlem 2017 0.0000000
Dance Theatre of Harlem 2018 0.0000000
Dance Theatre of Harlem 2019 0.0000000
Dance Theatre of Harlem 2020 0.0000000
American Repertory Ballet 2012 0.0000000
American Repertory Ballet 2015 0.0000000
American Repertory Ballet 2016 0.0000000
American Repertory Ballet 2017 0.0000000
BalletMet 2013 0.0000000
BalletMet 2015 0.0000000
BalletMet 2016 0.0000000
BalletMet 2017 0.0000000
BalletMet 2020 0.0000000
Fort Wayne Ballet 2013 0.0000000
The Washington Ballet 2018 0.0000000
The Washington Ballet 2020 0.0000000
The Alabama Ballet 2012 0.0000000
The Alabama Ballet 2013 0.0000000
The Alabama Ballet 2014 0.0000000
The Alabama Ballet 2015 0.0000000
The Sarasota Ballet 2014 0.0000000
The Sarasota Ballet 2015 0.0000000
Aspen Santa Fe Ballet 2014 0.0000000
Aspen Santa Fe Ballet 2019 0.0000000
Aspen Santa Fe Ballet 2020 0.0000000
Texas Ballet Theater 2011 0.0000000
Texas Ballet Theater 2012 0.0000000
Texas Ballet Theater 2013 0.0000000
Texas Ballet Theater 2014 0.0000000
Colorado Ballet 2013 0.0000000
Colorado Ballet 2014 0.0000000
Ballet Arizona 2011 0.0000000
Ballet Arizona 2012 0.0000000
Ballet Arizona 2013 0.0000000
Ballet West 2011 0.0000000
Eugene Ballet 2012 0.0000000
Eugene Ballet 2013 0.0000000
Eugene Ballet 2014 0.0000000
Eugene Ballet 2015 0.0000000
Eugene Ballet 2016 0.0000000
Eugene Ballet 2017 0.0000000
Eugene Ballet 2018 0.0000000
Eugene Ballet 2019 0.0000000
American Ballet Theatre 2011 -0.0293976
NA 2015 -0.0388779
Nevada Ballet Theatre 2020 -0.0958192
Milwaukee Ballet 2019 -0.2192253
Ballet Hispanico 2020 -0.2921837
Ballet Arizona 2018 -0.2958794
The Washington Ballet 2015 -0.3307636
Nevada Ballet Theatre 2015 -0.4171208
San Francisco Ballet 2019 -0.4505953
Houston Ballet 2020 -0.5394078
Aspen Santa Fe Ballet 2015 -0.6154796
Madison Ballet 2019 -0.6341596
Pennsylvania Ballet 2019 -0.6773370
Nevada Ballet Theatre 2016 -0.7510343
Fort Wayne Ballet 2018 -0.8065878
Nevada Ballet Theatre 2021 -0.8682968
Houston Ballet 2015 -0.9290425
Ballet West 2012 -0.9379652
American Ballet Theatre 2016 -0.9486236
Nevada Ballet Theatre 2019 -0.9524021
Ballet West 2018 -1.0492992
New York City Ballet 2015 -1.0935295
Charlotte Ballet 2019 -1.1038242
Nevada Ballet Theatre 2017 -1.1116605
Milwaukee Ballet 2016 -1.1445611
Pennsylvania Ballet 2012 -1.1858787
Ballet Hispanico 2015 -1.2189376
Ballet West 2013 -1.2456707
Nevada Ballet Theatre 2012 -1.2797833
Ballet Arizona 2019 -1.3078878
Ballet Arizona 2020 -1.3712710
Madison Ballet 2012 -1.3999721
Ballet Quad Cities 2019 -1.4598540
The Charleston Ballet 2016 -1.5786659
Madison Ballet 2016 -1.6090293
Fort Wayne Ballet 2020 -1.6147683
Grand Rapids Ballet 2012 -1.6979640
Dayton Ballet 2016 -1.9120081
Miami City Ballet 2015 -1.9267945
Pennsylvania Ballet 2015 -2.1126469
Nashville Ballet 2012 -2.2699618
Pacific Northwest Ballet 2012 -2.5481783
Milwaukee Ballet 2012 -2.5900754
The Charleston Ballet 2015 -2.8140235
New York City Ballet 2020 -2.9450705
American Ballet Theatre 2018 -3.0002561
Nevada Ballet Theatre 2014 -3.0244949
Charlotte Ballet 2020 -3.0415463
Pittsburgh Ballet Theatre 2020 -3.0426410
The Tallahassee Ballet 2012 -3.1998929
American Ballet Theatre 2014 -3.2115030
Houston Ballet 2012 -3.3717602
Dayton Ballet 2015 -3.4304063
The Washington Ballet 2012 -3.4429070
Grand Rapids Ballet 2016 -3.4832176
Ballet West 2017 -3.5593957
Ballet Austin 2016 -3.6649665
The Alabama Ballet 2019 -3.6897295
Kansas City Ballet 2018 -3.7141912
The Tallahassee Ballet 2020 -4.1994951
Pennsylvania Ballet 2016 -4.2562307
Ballet Quad Cities 2020 -4.5315904
Tulsa Ballet 2012 -4.6514807
Miami City Ballet 2020 -4.8106966
Miami City Ballet 2016 -4.9799231
Houston Ballet 2016 -4.9809760
Ballet Hispanico 2012 -5.0486376
Ballet Memphis 2015 -5.1492312
The Tallahassee Ballet 2016 -5.8413323
The Sarasota Ballet 2018 -5.8747682
Ballet Memphis 2016 -5.9367915
Ballet Memphis 2019 -6.1694703
The Charleston Ballet 2012 -6.1998116
Charlotte Ballet 2012 -6.3328889
San Francisco Ballet 2016 -6.3667555
The Alabama Ballet 2018 -6.3829029
The Sarasota Ballet 2012 -6.7174246
The Alabama Ballet 2016 -6.8163966
Alvin Ailey American Dance Theater 2016 -7.2545116
Pacific Northwest Ballet 2016 -7.3246969
New York City Ballet 2016 -7.4654042
Madison Ballet 2015 -7.5915755
New York City Ballet 2012 -7.5962728
San Francisco Ballet 2020 -8.4597794
Pittsburgh Ballet Theatre 2015 -9.7519131
Ballet Quad Cities 2016 -9.9700000
Pittsburgh Ballet Theatre 2012 -10.4416904
Ballet Memphis 2020 -11.6985509
Pennsylvania Ballet 2013 -13.3856788
Pittsburgh Ballet Theatre 2016 -13.8628328
The Sarasota Ballet 2013 -14.6832902
The Sarasota Ballet 2011 -15.1492335
The Sarasota Ballet 2019 -15.1497071
First State Ballet Theatre 2013 -16.1358788
Atlanta Ballet 2011 -22.4396954
The Washington Ballet 2016 -25.5508697
Atlanta Ballet 2020 -28.5158513
Atlanta Ballet 2019 -36.6916144
Atlanta Ballet 2014 -38.6514489
Atlanta Ballet 2013 -42.0972020
Orlando Ballet 2016 -44.7242762
Colorado Ballet 2012 -45.1865576
The Washington Ballet 2017 -48.7379222
First State Ballet Theatre 2015 -49.5289330
The Washington Ballet 2019 -50.1144953
First State Ballet Theatre 2014 -52.9562948
San Francisco Ballet 2011 -55.3267726
First State Ballet Theatre 2018 -72.7468454
Aspen Santa Fe Ballet 2018 -90.9315940
Orlando Ballet 2020 -90.9983829
Nashville Ballet 2019 -94.4004512
San Francisco Ballet 2012 -99.9832016
pct_change_ds %>%
  filter(pct_change != Inf) %>%
  select(organization_name, fiscal_year, pct_change) %>%
  group_by(fiscal_year) %>%
  summarize(total = n(),
            avg = mean(pct_change),
            med = median(pct_change),
            sd = sd(pct_change)) %>%
  make_table(title = "Percentage of Change in Endowment Balance By Year", col_names = c("Fiscal Year", "Total Companies", "Average % Change", "Median % Change", "Standard Deviation")) %>%
  scroll_box(height = "450px")
Percentage of Change in Endowment Balance By Year
Fiscal Year Total Companies Average % Change Median % Change Standard Deviation
2010 1 0.3281092 0.3281092 NA
2011 31 23.2042543 8.9183455 64.52232
2012 36 39.5711928 -1.2328310 242.88805
2013 40 14.4544304 4.8542974 38.48890
2014 40 56.4432194 8.2586243 299.10443
2015 42 93.2322610 0.1279159 481.13003
2016 43 24.2872831 -0.7510343 98.50785
2017 43 27.5778232 8.6823347 89.08538
2018 44 15.9080630 4.8267305 46.13128
2019 43 5.6928617 1.1650569 32.37300
2020 39 7.2725415 0.2184921 44.93623
2021 6 98.6421536 27.8120030 167.76683

REMOVING Investments

(End Year Balance - Investment Earnings or Losses Amount - Beginning Year Balance) / Beginning Year Balance * 100

Positive result: INCREASE in total funds.
Negative result: DECREASE in total funds.
If result is above 100, the fund was at least DOUBLED.

Range of Endowment Percent Change

## Ranges of different percent change  
# reorder(organization_name, pull(summarize(spend_down, sd = sd(group_by(spend_down, pct_change)))), na.rm = TRUE)
# Reordering by standard deviation of pct_spend down
pct_change_ds_box <- pct_change_ds %>%
  group_by(organization_name) %>%
  filter(pct_change != Inf) %>%
  summarize(sd = sd(pct_change, na.rm = TRUE)) %>%
  right_join(pct_change_ds, by = "organization_name") %>%
  select(organization_name, EIN, pct_change, sd) %>%
  mutate(organization_name = reorder(organization_name, -sd, na.rm = TRUE))

## Unlimited 
box_plot <- ggplot(pct_change_ds_box, aes(x = organization_name, y = pct_change)) + 
  geom_boxplot(aes(color = organization_name), show.legend = FALSE) + 
  geom_point(size = 1, alpha = 0.5) + 
  theme_bw() + 
  labs(title = "Range of Endowment Percent Change per Company",
       x = "Dance Company",
       y = "Percentage of Change in Endowment Balance") + 
  theme(axis.text.x = element_blank()) + 
  geom_hline(yintercept = 100, linetype = "dotted", color = "maroon")
ggplotly(box_plot) %>%
  layout(showlegend = FALSE)
##Limited to 100 for visibility 
box_plot_lim <- ggplot(pct_change_ds_box, aes(x = organization_name, y = pct_change)) + 
  geom_boxplot(aes(color = organization_name), show.legend = FALSE) + 
  geom_point(size = 1, alpha = 0.5) + 
  theme_bw() + 
  labs(title = "Range of Endowment % Change (Max of 100) per Company",
       x = "Dance Company",
       y = "Percentage of Change in Endowment Balance") + 
  theme(axis.text.x = element_blank()) + 
  scale_y_continuous(breaks = scales::breaks_pretty(n = 20),
                     limit = c(-100,100))
ggplotly(box_plot_lim)  %>%
  layout(showlegend = FALSE)

Percent Change over Time

## Spend Down over Time
pct_change_plot <- pct_change_ds %>%
  ggplot(aes(x = fiscal_year, y = pct_change, 
             group = organization_name, color = organization_name)) +
  geom_line(alpha = 0.5) + 
  theme_bw() + 
  labs(y = "Percent Spend Down",
       x = "Fiscal Year",
       title = "Percentage of Change in Endowment Balance",
       subtitle = "By Fiscal Year") + 
  theme(plot.title = element_text(size = 10, face = "bold", hjust = .5),
        axis.title = element_text(size = 12, face = "bold"),
        plot.subtitle = element_text(size = 5, face = "italic", hjust = .5),
        axis.text.x = element_text(size = 10, angle = 25),
        strip.text = element_text(face="bold",size = 5),
        legend.key.size = unit(1, 'mm'),
        legend.text = element_text(size=7)) + 
  scale_y_continuous(labels = scales::comma_format(),
                     breaks = scales::pretty_breaks(n = 20)) +
  geom_hline(yintercept = 100, linetype = "dotted", color = "gray")
ggplotly(pct_change_plot) 
##Plot with Y scale between -100 and 100 
limited_scale <- pct_change_ds %>%
  ggplot(aes(x = fiscal_year, y = pct_change, 
             group = organization_name, color = organization_name)) +
  geom_line(show.legend = FALSE, alpha = 0.5) + 
  theme_bw() + 
  labs(y = "Percent Spend Down",
       x = "Fiscal Year",
       title = "Percentage of Change in Endowment Balance (max 100)",
       subtitle = "By Fiscal Year") + 
  theme(plot.title = element_text(size = 10, face = "bold", hjust = .5),
        axis.title = element_text(size = 12, face = "bold"),
        plot.subtitle = element_text(size = 5, face = "italic", hjust = .5),
        axis.text.x = element_text(size = 10, angle = 25),
        strip.text = element_text(face="bold",size = 5),
        legend.key.size = unit(1, 'mm'),
        legend.text = element_text(size=7)) + 
  scale_y_continuous(labels = scales::comma_format(),
                     breaks = scales::pretty_breaks(n = 20),
                     limits = c(-100, 100))
ggplotly(limited_scale)

Percent Change Within the Pandemic

## Pandemic Years
pct_change_plot <- pct_change_ds %>%
  filter(fiscal_year %in% c("2018", "2019", "2020", "2021", "2022")) %>% 
  ggplot(aes(x = fiscal_year, y = pct_change, 
             group = organization_name, color = organization_name)) +
  geom_line(show.legend = FALSE, alpha = 0.5) + 
  theme_bw() + 
  labs(y = "Percent Spend Down",
       x = "Fiscal Year",
       title = "Percentage of Change in Endowment Balance",
       subtitle = "Within Pandemic Years") + 
  theme(plot.title = element_text(size = 10, face = "bold", hjust = .5),
        axis.title = element_text(size = 12, face = "bold"),
        plot.subtitle = element_text(size = 5, face = "italic", hjust = .5),
        axis.text.x = element_text(size = 10, angle = 25),
        strip.text = element_text(face="bold",size = 5),
        legend.key.size = unit(1, 'mm'),
        legend.text = element_text(size=7)) + 
  scale_y_continuous(labels = scales::comma_format(),
                     breaks = scales::pretty_breaks(n = 20)) +
  geom_hline(yintercept = 100, linetype = "dotted", color = "gray")
ggplotly(pct_change_plot) 
## Table of available in-pandemic data 
pct_change_ds %>%
  filter(fiscal_year %in% c("2019", "2020", "2021", "2022")) %>%
  select(organization_name, pct_change, fiscal_year) %>%
  arrange(desc(fiscal_year)) %>%
  make_table(title = "Percentage of Change in Endowment Balance within Pandemic Years", col_names = c("Name", "% Spend Down", "Year")) %>%
  scroll_box(height = "450px")
Percentage of Change in Endowment Balance within Pandemic Years
Name % Spend Down Year
Ballet Hispanico 432.1555786 2021
Miami City Ballet 103.3796951 2021
Eugene Ballet 35.3676599 2021
Pittsburgh Ballet Theatre 20.2563462 2021
Oregon Ballet Theatre 1.5619387 2021
Nevada Ballet Theatre -0.8682968 2021
First State Ballet Theatre 242.6848638 2020
Joffrey Ballet 90.8216917 2020
Richmond Ballet 39.8449675 2020
Grand Rapids Ballet 16.5116257 2020
Ballet Austin 8.9689362 2020
American Ballet Theatre 8.9365465 2020
Ballet West 8.0887426 2020
Tulsa Ballet 7.2630153 2020
NA 6.8383787 2020
The Sarasota Ballet 5.3797096 2020
Pacific Northwest Ballet 5.2552006 2020
Eugene Ballet 2.0266667 2020
Oregon Ballet Theatre 1.9913020 2020
Alvin Ailey American Dance Theater 1.1173579 2020
Madison Ballet 1.0503166 2020
Pennsylvania Ballet 0.9848159 2020
Nashville Ballet 0.6340668 2020
The Alabama Ballet 0.5951924 2020
Texas Ballet Theater 0.5742863 2020
New Mexico Ballet Company 0.2184921 2020
Dance Theatre of Harlem 0.0000000 2020
BalletMet 0.0000000 2020
The Washington Ballet 0.0000000 2020
Aspen Santa Fe Ballet 0.0000000 2020
Nevada Ballet Theatre -0.0958192 2020
Ballet Hispanico -0.2921837 2020
Houston Ballet -0.5394078 2020
Ballet Arizona -1.3712710 2020
Fort Wayne Ballet -1.6147683 2020
New York City Ballet -2.9450705 2020
Charlotte Ballet -3.0415463 2020
Pittsburgh Ballet Theatre -3.0426410 2020
The Tallahassee Ballet -4.1994951 2020
Ballet Quad Cities -4.5315904 2020
Miami City Ballet -4.8106966 2020
San Francisco Ballet -8.4597794 2020
Ballet Memphis -11.6985509 2020
Atlanta Ballet -28.5158513 2020
Orlando Ballet -90.9983829 2020
Joffrey Ballet 146.9046722 2019
First State Ballet Theatre 69.9900000 2019
Dayton Ballet 47.3628143 2019
Richmond Ballet 34.8263002 2019
New Mexico Ballet Company 28.7289611 2019
BalletMet 22.9766213 2019
Kansas City Ballet 14.2884428 2019
Tulsa Ballet 14.0998602 2019
Orlando Ballet 13.8649901 2019
American Ballet Theatre 12.8340039 2019
Grand Rapids Ballet 11.2809947 2019
NA 7.8186556 2019
Ballet Des Moines 6.2713554 2019
Oregon Ballet Theatre 4.1823644 2019
Alvin Ailey American Dance Theater 3.5551869 2019
The Tallahassee Ballet 3.4501860 2019
Houston Ballet 3.0126539 2019
Ballet Austin 2.7039028 2019
Pacific Northwest Ballet 2.5299841 2019
Ballet West 2.5020351 2019
Ballet Hispanico 1.5405288 2019
Miami City Ballet 1.1650569 2019
Pittsburgh Ballet Theatre 0.7669528 2019
Texas Ballet Theater 0.5813097 2019
Fort Wayne Ballet 0.4949803 2019
New York City Ballet 0.0809932 2019
Dance Theatre of Harlem 0.0000000 2019
Aspen Santa Fe Ballet 0.0000000 2019
Eugene Ballet 0.0000000 2019
Milwaukee Ballet -0.2192253 2019
San Francisco Ballet -0.4505953 2019
Madison Ballet -0.6341596 2019
Pennsylvania Ballet -0.6773370 2019
Nevada Ballet Theatre -0.9524021 2019
Charlotte Ballet -1.1038242 2019
Ballet Arizona -1.3078878 2019
Ballet Quad Cities -1.4598540 2019
The Alabama Ballet -3.6897295 2019
Ballet Memphis -6.1694703 2019
The Sarasota Ballet -15.1497071 2019
Atlanta Ballet -36.6916144 2019
The Washington Ballet -50.1144953 2019
Nashville Ballet -94.4004512 2019
pct_change_ds %>%
  filter(fiscal_year %in% c("2019", "2020", "2021", "2022")) %>%
  select(organization_name, pct_change, fiscal_year) %>%
  group_by(fiscal_year) %>%
  summarize(total_in_year = n())